Aquest chunk defineix els paràmetres per defecte respecte a com mostrar el codi, però per defecte no es mostra als resultats.

rmarkdown::includes(in_header = "trama.png")
## $in_header
## [1] "trama.png"
## 
## $before_body
## NULL
## 
## $after_body
## NULL

Aquest chunk carrega la font Atkinson, i tampoc es mostra als resultats

Qualsevol cosa que posem a continuació sí que es mostrarà, el codi quedarà en un chunk col·lapsat, i per defecte ens mostrarà el resultat.

1 gràfic animat

Fem un gràfic de mostra:

ggplot(gapminder::gapminder, 
       aes(gdpPercap, 
           lifeExp, 
           size = pop, 
           colour = country)) +
  geom_point(alpha = 0.7, 
             show.legend = FALSE) +
  scale_colour_manual(values = gapminder::country_colors) +
  scale_size(range = c(2, 12)) +
  scale_x_log10() +
  facet_wrap(~continent) +
  IMpaletes::theme_IM() + # aplica el theme de l'institut
  # Here comes the gganimate specific bits
  labs(title = 'Year: {frame_time}', 
       x     = 'GDP per capita', 
       y     = 'life expectancy') +
  transition_time(year)

2 altres continguts

podem posar altres continguts, com taules o imatges

2.1 una taula

Poso una instrucció en css per a donar format a la taula:

tbl <- gapminder::gapminder |>
  filter(year < 1969) |>
  group_by(continent) |>
  summarise(Esp_Vida = mean(lifeExp))

2.2 una imatge

2.3 un gràfic amb ggplot

En aquest exemple es veu com aplicar a un gràfic de ggplot l’estètica (theme) i la paleta de colors de l’institut. Per més detalls sobre això, veure la vinyeta d’instruccions del paquet IMpaletes.

# genera unes dades inventades
set.seed(123)
df <- data.frame(xval = rnorm(50)) %>% 
  mutate(
    yval = rnorm(50), 
    zval = xval - sample(c(1.0:1.2), 50, replace = T), 
    fact = sample(LETTERS[1:3], 50, replace = T), 
    cat  = sample(letters[8:10], 50, replace = T),
    time = sample(c(2000:2023), 50, replace = T)
)
W <- ggplot(df, 
            aes(x = xval, 
                y = yval, 
                color = yval)) +
  geom_point(size = 4) + 
  IMpaletes::theme_IM() + # aplica l'estètica Institut Metròpoli al gràfic
  labs(
    title = "Un títol", 
    subtitle = "un subtítol", 
    x = "xval", 
    y = "yval", 
    caption = "Una font:"
  ) + 
  IMpaletes::paleta_IM_seq(aesthetics = "colour") # aplica la paleta de colors seqüencial
W

2.4 el mateix gràfic amb plotly

ggplotly(W)